home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 May: Tool Chest / Developer CD Series May 1996 (Tool Chest) (Apple Computer) (1996).iso / Tool Chest / Interfaces & Libraries / Interfaces / AIncludes / ASDebugging.a < prev    next >
Encoding:
Text File  |  1994-03-28  |  5.1 KB  |  175 lines  |  [TEXT/MPS ]
  1. ;    File:        ASDebugging.a
  2. ;
  3. ;    Copyright:    © 1984-1994 by Apple Computer, Inc.
  4. ;    All Rights Reserved.
  5. ;
  6. ;
  7. ;___________________________________________________________________________
  8.  
  9.  IF &TYPE('__INCLUDINGASDEBUGGING__') = 'UNDEFINED' THEN
  10. __INCLUDINGASDEBUGGING__   SET 1
  11.  
  12.  IF &TYPE('__INCLUDINGAPPLESCRIPT__') = 'UNDEFINED' THEN
  13.  Include 'AppleScript.a'
  14.  ENDIF
  15.  
  16.  IF &TYPE('__INCLUDINGTRAPS__') = 'UNDEFINED' THEN
  17.  INCLUDE 'Traps.a'
  18.  ENDIF
  19.  
  20. ;    This mode flag can be passed to OSASetProperty or OSASetHandler
  21. ;    and will prevent properties or handlers from being defined in a context
  22. ;    that doesn't already have bindings for them. An error is returned if
  23. ;    a current binding doesn't already exist.
  24. kOSAModeDontDefine            EQU    $0001
  25.  
  26.  
  27. ;////////////////////////////////////////////////////////////////////////////////
  28. ;// Component Selectors
  29. ;////////////////////////////////////////////////////////////////////////////////
  30.  
  31. kASSelectSetPropertyObsolete    EQU    $1101
  32. kASSelectGetPropertyObsolete    EQU    $1102
  33. kASSelectSetHandlerObsolete        EQU    $1103
  34. kASSelectGetHandlerObsolete        EQU    $1104
  35. kASSelectGetAppTerminologyObsolete    EQU    $1105
  36. kASSelectSetProperty            EQU    $1106
  37. kASSelectGetProperty            EQU    $1107
  38. kASSelectSetHandler                EQU    $1108
  39. kASSelectGetHandler                EQU    $1109
  40. kASSelectGetAppTerminology        EQU    $110A
  41. kASSelectGetSysTerminology        EQU    $110B
  42. kASSelectGetPropertyNames        EQU    $110C
  43. kASSelectGetHandlerNames        EQU    $110D
  44.  
  45. ; extern pascal OSAError OSASetProperty(ComponentInstance scriptingComponent, long modeFlags, OSAID contextID, const AEDesc *variableName, OSAID scriptValueID)
  46.     MACRO
  47.     _OSASetProperty
  48.     MOVE.L    #$00101106,-(A7)
  49.     MOVEQ    #$00,D0
  50.     _ComponentDispatch
  51.     MEND
  52.  
  53. ;extern pascal OSAError OSAGetProperty(ComponentInstance scriptingComponent, long modeFlags, OSAID contextID, const AEDesc *variableName, OSAID *resultingScriptValueID)
  54.     MACRO
  55.     _OSAGetProperty
  56.     MOVE.L    #$00101107,-(A7)
  57.     MOVEQ    #$00,D0
  58.     _ComponentDispatch
  59.     MEND
  60.  
  61. ;extern pascal OSAError OSAGetPropertyNames(ComponentInstance scriptingComponent, long modeFlags, OSAID contextID, AEDescList *resultingPropertyNames)
  62.     MACRO
  63.     _OSAGetPropertyNames
  64.     MOVE.L    #000C110C,-(A7)
  65.     MOVEQ    #$00,D0
  66.     _ComponentDispatch
  67.     MEND
  68.  
  69. ;extern pascal OSAError OSASetHandler(ComponentInstance scriptingComponent, long modeFlags, OSAID contextID, const AEDesc *handlerName, OSAID compiledScriptID)
  70.     MACRO
  71.     _OSASetHandler
  72.     MOVE.L    #$00101108,-(A7)
  73.     MOVEQ    #$00,D0
  74.     _ComponentDispatch
  75.     MEND
  76.  
  77. ;extern pascal OSAError OSAGetHandler(ComponentInstance scriptingComponent, long modeFlags, OSAID contextID, const AEDesc *handlerName, OSAID *resultingCompiledScriptID)
  78.     MACRO
  79.     _OSAGetHandler
  80.     MOVE.L    #$00101109,-(A7)
  81.     MOVEQ    #$00,D0
  82.     _ComponentDispatch
  83.     MEND
  84.  
  85. ;extern pascal OSAError OSAGetHandlerNames(ComponentInstance scriptingComponent, long modeFlags, OSAID contextID, AEDescList *resultingHandlerNames)
  86.     MACRO
  87.     _OSAGetHandlerNames
  88.     MOVE.L    #$000C1100,-(A7)
  89.     MOVEQ    #$00,D0
  90.     _ComponentDispatch
  91.     MEND
  92.  
  93. ;extern pascal OSAError OSAGetAppTerminology(ComponentInstance scriptingComponent, long modeFlags, FSSpec *fileSpec, short terminologyID, Boolean *didLaunch, AEDesc *terminologyList)
  94.     MACRO
  95.     _OSAGetAppTerminology
  96.     MOVE.L    #$0012110A,-(A7)
  97.     MOVEQ    #$00,D0
  98.     _ComponentDispatch
  99.     MEND
  100.  
  101.  
  102. ;// Errors:
  103. ;//    errOSASystemError        operation failed
  104.  
  105. ;extern pascal OSAError OSAGetSysTerminology(ComponentInstance scriptingComponent, long modeFlags, short terminologyID, AEDesc *terminologyList)
  106.     MACRO
  107.     _OSAGetSysTerminology
  108.     MOVE.L    #$000A110B,-(A7)
  109.     MOVEQ    #$00,D0
  110.     _ComponentDispatch
  111.     MEND
  112.  
  113.  
  114. ;// Errors:
  115. ;//    errOSASystemError        operation failed
  116.  
  117. ;// Notes on terminology ID
  118. ;//
  119. ;// A terminology ID is derived from script code and language code
  120. ;// as follows;
  121. ;//
  122. ;//        terminologyID = ((scriptCode & 0x7F) << 8) | (langCode & 0xFF)
  123. ;//
  124. ;////////////////////////////////////////////////////////////////////////////////
  125. ;// Obsolete versions provided for backward compatibility:
  126.  
  127. ;extern pascal OSAError ASSetProperty(ComponentInstance scriptingComponent, OSAID contextID, const AEDesc *variableName, OSAID scriptValueID)
  128.     MACRO
  129.     _ASSetProperty
  130.     MOVE.L    #$000C1101,-(A7)
  131.     MOVEQ    #$00,D0
  132.     _ComponentDispatch
  133.     MEND
  134.  
  135. ;extern pascal OSAError ASGetProperty(ComponentInstance scriptingComponent, OSAID contextID, const AEDesc *variableName, OSAID *resultingScriptValueID)
  136.     MACRO
  137.     _ASGetProperty
  138.     MOVE.L    #$000C1101,-(A7)
  139.     MOVEQ    #$00,D0
  140.     _ComponentDispatch
  141.     MEND
  142.  
  143. ;extern pascal OSAError ASSetHandler(ComponentInstance scriptingComponent, OSAID contextID, const AEDesc *handlerName, OSAID compiledScriptID)
  144.     MACRO
  145.     _ASSetHandler
  146.     MOVE.L    #$000C1103,-(A7)
  147.     MOVEQ    #$00,D0
  148.     _ComponentDispatch
  149.     MEND
  150.  
  151. ;extern pascal OSAError ASGetHandler(ComponentInstance scriptingComponent, OSAID contextID, const AEDesc *handlerName, OSAID *resultingCompiledScriptID)
  152.     MACRO
  153.     _ASGetHandler
  154.     MOVE.L    #$000C1104,-(A7)
  155.     MOVEQ    #$00,D0
  156.     _ComponentDispatch
  157.     MEND
  158.  
  159. ;extern pascal OSAError ASGetAppTerminology(ComponentInstance scriptingComponent, FSSpec *fileSpec, short terminologID, Boolean *didLaunch, AEDesc *terminologyList)
  160.     MACRO
  161.     _ASGetAppTerminology
  162.     MOVE.L    #$000E1105,-(A7)
  163.     MOVEQ    #$00,D0
  164.     _ComponentDispatch
  165.     MEND
  166.  
  167. ;// Errors:
  168. ;//    errOSASystemError        operation failed
  169.  
  170. ;////////////////////////////////////////////////////////////////////////////////
  171.  
  172.  ENDIF
  173.  
  174.  
  175.